﻿Public Class Ventanas_internas

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRToolStripMenuItem.Click
        Me.Visible = False
        Principal.Visible = True

    End Sub

    Private Sub NUEVOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUEVOToolStripMenuItem.Click

        Static icontador As Integer

        Dim oFrm As New frmChild()
        icontador += 1
        oFrm.MdiParent = Me
        oFrm.Text = oFrm.Text & "(" & icontador & ")"
        oFrm.show()

    End Sub

    Private Sub CASCADAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CASCADAToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub HORIZONTALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HORIZONTALToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub VERTICALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VERTICALToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub


End Class
